home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok40.lha / Environment / MPDat.Mod < prev    next >
Text File  |  1993-08-15  |  2KB  |  66 lines
  1. IMPLEMENTATION MODULE MPDat;
  2. (*---------------------------------------------------------------------------
  3.    :Program.    MPDat.Mod
  4.    :Version.    3.3
  5.    :History.    Mar-90
  6.    :Author.     Markus Peuckert
  7.    :Address.    Schützenstr. 50, D-3550 Marburg, West-Germany,
  8.    :Copyright.  ShareWare
  9.    :Language.   Modula-2
  10.    :Translator. M2Amiga V3.3d
  11. ---------------------------------------------------------------------------*)
  12.  
  13. FROM SYSTEM    IMPORT    ADR;
  14. FROM Arts    IMPORT    Assert;
  15. FROM ASCII    IMPORT    lf;
  16. FROM FileSystem IMPORT     File, Lookup, Close, ReadChar, WriteChar, done;
  17. FROM Strings    IMPORT    Length;
  18.  
  19.  
  20. PROCEDURE OpenConfig (VAR Datei : File; Name : ARRAY OF CHAR; new : BOOLEAN);
  21. BEGIN
  22.  Lookup (Datei, Name, 0, new);
  23.  IF Datei.res#done THEN
  24.   Lookup (Datei, Name, 0, TRUE)
  25.  END;
  26.  Assert (Datei.res=done, ADR("Compi.config nicht initialisierbar!"))
  27. END OpenConfig;
  28.  
  29. PROCEDURE CloseConfig (Datei : File);
  30. BEGIN
  31.  Close (Datei)
  32. END CloseConfig;
  33.  
  34. PROCEDURE GetConfigParams (Datei : File; VAR Dummy : ARRAY OF CHAR);
  35. VAR ch     : CHAR;
  36.     i      : CARDINAL;
  37. BEGIN
  38.  i:=0;
  39.  LOOP
  40.   ReadChar (Datei, ch);
  41.   IF Datei.eof OR (Datei.res # done) OR (ch = lf) THEN
  42.    Dummy [i] := 0C;
  43.    EXIT
  44.   END;
  45.   Dummy [i] := ch;  INC (i);
  46.  END
  47. END GetConfigParams;
  48.  
  49. PROCEDURE SetConfigParams (Datei : File; VAR Dummy : ARRAY OF CHAR);
  50. VAR ch         : CHAR;
  51.     i, len      : LONGCARD;
  52. BEGIN
  53.  i:=0;  len := Length (Dummy);
  54.  LOOP
  55.   WriteChar (Datei, Dummy[i]);
  56.   IF (i = len+1) THEN
  57.    WriteChar (Datei, lf);
  58.    EXIT
  59.   END;
  60.   INC (i);
  61.  END
  62. END SetConfigParams;
  63.  
  64.  
  65. END MPDat.Mod
  66.